home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / TOOLBOX / WINDGET.DEF < prev    next >
Encoding:
Modula Definition  |  1993-01-29  |  1.7 KB  |  103 lines
  1. DEFINITION MODULE WindGet;
  2.  
  3. (*
  4. WindGet - Functions.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*DEF_SWITCHES*)
  10.  
  11. FROM AES    IMPORT TreePtr;
  12. FROM RcMgr  IMPORT GRect;
  13. FROM PORTAB IMPORT UNSIGNEDWORD,SIGNEDWORD;
  14.  
  15. (* WFKind *)
  16.  
  17. (* WFName *)
  18.  
  19. (* WFInfo *)
  20.  
  21. (* WFWorkXYWH *)
  22.  
  23. PROCEDURE WorkXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);
  24.  
  25. (* WFCurrXYWH *)
  26.  
  27. PROCEDURE CurrXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);
  28.  
  29. (* WFPrevXYWH *)
  30.  
  31. PROCEDURE PrevXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);
  32.  
  33. (* WFFullXYWH *)
  34.  
  35. PROCEDURE FullXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);
  36.  
  37. (* WFHSlide *)
  38.  
  39. PROCEDURE HSlide(Handle: SIGNEDWORD): UNSIGNEDWORD;
  40.  
  41. (* WFVSlide *)
  42.  
  43. PROCEDURE VSlide(Handle: SIGNEDWORD): UNSIGNEDWORD;
  44.  
  45. (* WFTop *)
  46.  
  47. PROCEDURE Top(): SIGNEDWORD;
  48.  
  49. PROCEDURE TopAndBelow(VAR Top  : SIGNEDWORD;
  50.                       VAR Id   : SIGNEDWORD;
  51.                       VAR Below: SIGNEDWORD);
  52.  
  53. (* WFFirstXYWH *)
  54.  
  55. PROCEDURE FirstXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);
  56.  
  57. (* WFNextXYWH *)
  58.  
  59. PROCEDURE NextXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);
  60.  
  61. (* WFNewDesk *)
  62.  
  63. PROCEDURE NewDesk(): TreePtr;
  64.  
  65. (* WFHSlSize *)
  66.  
  67. PROCEDURE HSlSize(Handle: SIGNEDWORD): SIGNEDWORD;
  68.  
  69. (* WFVSlSize *)
  70.  
  71. PROCEDURE VSlSize(Handle: SIGNEDWORD): SIGNEDWORD;
  72.  
  73. (* WFScreen *)
  74.  
  75. (* WFTopAttrb *)
  76.  
  77. (* WFColor *)
  78.  
  79. (* WFSizTop *)
  80.  
  81. (* WFDColor *)
  82.  
  83. (* WFTopAp *)
  84.  
  85. (* WFOwner *)
  86.  
  87. PROCEDURE Owner(    Handle: SIGNEDWORD;
  88.                 VAR Open  : BOOLEAN;
  89.                 VAR Above : SIGNEDWORD;
  90.                 VAR Below : SIGNEDWORD): SIGNEDWORD;
  91.  
  92. (* WFBack *)
  93.  
  94. (* WFBEvent *)
  95.  
  96. PROCEDURE BEvent(Handle: SIGNEDWORD): BOOLEAN;
  97.  
  98. (* WFBottom *)
  99.  
  100. PROCEDURE Bottom(): SIGNEDWORD;
  101.  
  102. END WindGet.
  103.